LEX 'LOCKOFF'
  ID #5C
  MSG 0
  POLL CLEAR
  ENDTXT
pDSWKY EQU #FD
PASSWD EQU #2F7B2
CLEAR P= 0
  SETHEX
  LC(2) pDSWKY
  ?B=C B
  GOYES LOCK
  RTNSXM
LOCK LC(5) PASSWD
  CD1EX
  A=0 W
  DAT1=A W
  CD1EX
  RTNSXM
  END